home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / relab.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.4 KB  |  76 lines
  1. G4C
  2.  
  3. winbig -1 -1 200 57 ""
  4. winsmall -1 -1 200 57
  5. wintype 11110000
  6. varpath "climaster/*/routine.g"
  7.  
  8. xonload
  9. failat 5
  10. guiopen relab.g
  11.  
  12. xonopen
  13. lvuse relab.g 1
  14. gosub routine.g drives
  15. if $cm_mode == "relab"
  16.     setwintitle relab.g "Relabel Disk            "
  17.     setgad relab.g 3 on
  18.     setgad relab.g 4/5 off
  19. elseif $cm_mode == "install"
  20.     setwintitle relab.g "Install Disk            "
  21.     setgad relab.g 3 off
  22.     setgad relab.g 4/5 on
  23.     update relab.g 4 0
  24. endif
  25. update relab.g 1 0
  26. update relab.g 2 $source
  27.  
  28. xonclose
  29. lvuse climaster $cm_srce
  30. failat 10
  31. guiquit relab.g
  32.  
  33. xonrmb
  34. guiclose relab.g
  35.  
  36. xonfail
  37. guiclose relab.g
  38.  
  39. box 120 13 80 18 out button
  40.  
  41. xlistview 0 13 120 46 "" source "" 0 txt
  42. gadid 1
  43. gadfont topaz.font 8 000
  44. lvuse climaster $cm_srce
  45. update relab.g 2 $source
  46.  
  47. text 135 16 50 12 "" 4 box
  48. gadid 2
  49. gadtxt center
  50.  
  51. xtextin 0 0 200 13 "" nwname "" 30
  52. gadid 3
  53. if $nwname = ""
  54.     ezreq "You MUST supply a name." Okay ""
  55.     stop
  56. endif
  57. if $cm_mode = "relab"
  58.     setwintitle relab.g "Renaming Disk...        "
  59.     cli 'c:relabel drive $source name "$nwname"'
  60.     nwname = ""
  61.     update relab.g 3 $nwname
  62.     setwintitle relab.g "Relabel Disk           "
  63. endif
  64.  
  65. xcycler 120 31 80 13 "" dop_instarg
  66. gadid 4
  67. cstr "OFS" ""
  68. cstr "FFS" "ffs"
  69. cstr "Check" "check"
  70.  
  71. xbutton 120 44 80 13 Start
  72. gadid 5
  73. setwintitle relab.g "Installing...           "
  74. cli 'c:install drive $source $dop_instarg'
  75. setwintitle relab.g "Install Disk            "
  76.